Computer Shopper 183/dpcs0503.iso/Extras/Content/Images/Artbeats/WebStockDemo/XTRAS/WebStock.dxr/00163_MovieScript 1.ls

Text File | 1998-11-11 | 10.3 KB | 391 lines

on startMovie
  global sliderLocTable, libraryPath, lastPoped, nextRepeatTime, RepeatSpeed
  if not (the quickTimePresent) then
    alert("Quicktime has not been detected on your system." & " Only S, B amd V catagories will be available." & " To obtain the latest version of Quicktime for your systen, go to:" & RETURN & RETURN & "http://apple.com/quicktime/sw/")
  end if
  set nextRepeatTime to 0
  set RepeatSpeed to 0
  set lastPoped to 0
  if the machineType = 256 then
    set the itemDelimiter to "\"
  else
    set the itemDelimiter to ":"
  end if
  set volume to item 1 to the number of items in the pathName - 2 of the pathName
  set libraryPath to volume & the itemDelimiter & "Library" & the itemDelimiter
  set the fileName of castLib "sounds.cst" to pathName() & "sounds.cst"
  set sliderLocTable to value(field "sliderTable")
  set the floatPrecision to 1
  if the machineType = 256 then
    set the foreColor of member "info" to 245
    set the backcolor of member "info" to 256
  else
    set the foreColor of member "info" to 32700
    set the backcolor of member "info" to 0
  end if
  put EMPTY into field "info"
  set the visible of sprite 22 to 0
  set the visible of sprite 23 to 0
  set the itemDelimiter to ","
  set the floatPrecision to 2
end

on stopMovie
  put " " into field "caslibname"
  put " " into field "info"
  set the loop of member "MovieMember1" to 0
  set the loop of member "MovieMember2" to 0
end

on installObject
  global currentCatagory
  if currentCatagory = "BitMap" then
    copySetToFile()
  else
    if currentCatagory = "Vector" then
      set filePath to vectorSourceFilePath()
    else
      set filePath to the fileName of the member of sprite 52
    end if
    if the machineType = 256 then
      set the itemDelimiter to "\"
    else
      set the itemDelimiter to ":"
    end if
    set fileName to the last item in filePath
    set the itemDelimiter to ","
    InstallFile(fileName, filePath)
  end if
end

on vectorSourceFilePath
  global ibcleafnum, ibcleaflist, libraryPath
  if the machineType = 256 then
    set XX to "\"
  else
    set XX to ":"
  end if
  set the itemDelimiter to "."
  set sourceFileFolderNname to item 1 of line ibcleafnum of ibcleaflist & ".fla"
  set the itemDelimiter to ","
  set filePath to libraryPath & "Vector" & XX & "editable" & XX & sourceFileFolderNname
  return filePath
end

on installSoundFile fileName
  global libraryPath
  if the machineType = 256 then
    set the itemDelimiter to "\"
    set FileExtension to ".wav"
  else
    set the itemDelimiter to ":"
    set FileExtension to ".aiff"
  end if
  set filePath to libraryPath & "Sounds" & the itemDelimiter & fileName & FileExtension
  set the itemDelimiter to ","
  InstallFile(fileName & FileExtension, filePath)
end

on copySetToFile
  global ibccdpath
  if the memberNum of sprite 52 < 1 then
    put "copySetToFile: sprite 52 not currently valid bitmap, bailing..."
    exit
  end if
  set srclib to the castLibNum of sprite 52
  set srcmem to leadmem(the memberNum of sprite 52, srclib)
  if the machineType = 256 then
    set targetPath to getDestinationPath(stripExtension(the name of member srcmem of castLib srclib) & ".bmp")
  else
    set targetPath to getDestinationPath(Stripdot(the name of member srcmem of castLib srclib) & ".pic")
  end if
  if targetPath <> EMPTY then
    if the runMode = "Author" then
      if the machineType = 256 then
        openXLib(pathName() & "f3xTest.x32")
      else
        openXLib(pathName() & "f3Export (author only)")
      end if
    else
      if the machineType = 256 then
        openXLib(pathName() & "f3Export.x32")
      else
        openXLib(pathName() & "f3Export")
      end if
    end if
    cursor(4)
    repeat with i = srcmem to srcmem + 128
      if the type of member i of castLib srclib <> #bitmap then
        exit repeat
      end if
      if the machineType = 256 then
        set status to f3ExportBMP(member i of castLib srclib, targetPath & stripExtension(the name of member i of castLib srclib) & ".BMP")
      else
        set status to f3ExportPict(member i of castLib srclib, targetPath & Stripdot(the name of member i of castLib srclib) & ".pic")
      end if
      if status then
        put "f3ExportPict error: " & status
      end if
    end repeat
    if the runMode = "Author" then
      if the machineType = 256 then
        closeXLib(the pathName & "f3xTest.x32")
      else
        closeXLib(the pathName & "f3Export (author only)")
      end if
    else
      if the machineType = 256 then
        closeXLib(pathName() & "f3Export.x32")
      else
        closeXLib(pathName() & "f3Export")
      end if
    end if
  end if
  cursor(0)
end

on Stripdot aname
  set the itemDelimiter to "."
  set aname to item 1 of aname
  set the itemDelimiter to ","
  return aname
end

on getDestinationPath FileNamenType
  global notFirstSave
  set imager to new(xtra("fileio"))
  if objectp(imager) then
    if the machineType = 256 then
      set the itemDelimiter to "\"
    else
      set the itemDelimiter to ":"
    end if
    set DestinationPath to displaySave(imager, "Select destination folder", FileNamenType)
    set imager to EMPTY
    if DestinationPath = EMPTY then
      return EMPTY
    else
      set pathLessFile to item 1 to the number of items in DestinationPath - 1 of DestinationPath & the itemDelimiter
      set the itemDelimiter to ","
      return pathLessFile
    end if
  end if
end

on InstallFile FileNamenType, SourcePath
  global pcObj
  if the machineType = 256 then
    set XX to "\"
  else
    set XX to ":"
  end if
  set imager to new(xtra("fileio"))
  if objectp(imager) then
    set DestinationPath to displaySave(imager, "Select destination folder", FileNamenType)
    if DestinationPath = EMPTY then
      exit
    end if
    set imager to EMPTY
    put "SourcePath = " & SourcePath
    put "DestinationPath = " & DestinationPath
  else
    exit
  end if
  updateStage()
  if xtraLoaded("ProgressCopy") then
  end if
  if not openProgressCopy() then
    alert("openProgressCopy() returned FALSE")
    exit
  end if
  if not xtraLoaded("ProgressCopy") then
    alert("Xtra library not open")
    exit
  end if
  if objectp(pcObj) then
  else
    set theAutoPlace to 1
    set theLeft to 0
    set theTop to 0
    set pcObj to new(xtra("ProgressCopy"), theAutoPlace, theLeft, theTop)
    if not objectp(pcObj) then
      alert("ProgressCopy: new failed with error " & string(pcObj))
      exit
    end if
  end if
  if the machineType = 256 then
    set the itemDelimiter to "\"
  else
    set the itemDelimiter to ":"
  end if
  set destFile to item the number of items in DestinationPath of DestinationPath
  set the itemDelimiter to ","
  set s1 to "Copying: "
  set s2 to "Into file: " & destFile
  set s3 to "Please stand by..."
  set theResult to setStrings(pcObj, s1, s2, s3)
  if theResult <> 0 then
    alert("setString handler returned non-zero: " & theResult)
  end if
  if error(pcObj) then
    alert(errorString(pcObj))
    exit
  else
  end if
  if not objectp(pcObj) then
    put "No object instantiated."
    exit
  end if
  set theOverwrite to 1
  set theProgress to 1
  set theCancel to 1
  set s1 to SourcePath
  set s2 to DestinationPath
  cursor(4)
  set theResult to CopyFile(pcObj, s1, s2, theOverwrite, theProgress, theCancel)
  if theResult <> 0 then
    alert("copyFile handler returned non-zero: " & theResult)
  end if
  if error(pcObj) then
    alert(errorString(pcObj))
  else
    if not theProgress then
    end if
  end if
  cursor(0)
end

on myVolumeName
  if the machineType = 256 then
    set the itemDelimiter to "\"
  else
    set the itemDelimiter to ":"
  end if
  set myVolume to item 1 of the pathName
  set the itemDelimiter to ","
  return myVolume
end

on ReportFileIOError errorNum
  if errorNum = -33 then
    return "File directory full"
  end if
  if errorNum = -34 then
    return "Volume full"
  end if
  if errorNum = -35 then
    return "Volume not found"
  end if
  if errorNum = -36 then
    return "I/O Error"
  end if
  if errorNum = -37 then
    return "Bad file name"
  end if
  if errorNum = -38 then
    return "File not open"
  end if
  if errorNum = -42 then
    return "Too many files open"
  end if
  if errorNum = -43 then
    return "File not found"
  end if
  if errorNum = -56 then
    return "No such drive"
  end if
  if errorNum = -65 then
    return "No disk in drive"
  end if
  if errorNum = -120 then
    return "Directory not found"
  else
    return "Unknown error"
  end if
end

on xtraLoaded theName
  if not stringp(theName) then
    warning("xtraLoaded(): theName not a string")
    return 0
  end if
  set nx to the number of xtras
  if nx < 1 then
    return 0
  end if
  repeat with i = 1 to nx
    if the name of xtra(i) = theName then
      return 1
    end if
  end repeat
  return 0
end

on openProgressCopy
  if xtraLoaded("ProgressCopy") then
    register(xtra("ProgressCopy"), "uiif4brt7f8s")
    return 1
  end if
  set oldDelim to the itemDelimiter
  set the itemDelimiter to ","
  set exePlatform to item 1 of the platform
  set exeBits to item 2 of the platform
  set the itemDelimiter to oldDelim
  if exePlatform <> "Windows" then
    openXLib("ProgressCopy Xtra")
  else
    openXLib("progcopy.x" & exeBits)
  end if
  register(xtra("ProgressCopy"), "uiif4brt7f8s")
  if not xtraLoaded("ProgressCopy") then
    warning("ProgressCopy Xtra didn't register.")
    return 0
  end if
  return 1
end

on closeProgressCopy
  global gProgressCopyObject, gVoid
  if objectp(gProgressCopyObject) then
    set gProgressCopyObject to gVoid
  end if
  if not xtraLoaded("ProgressCopy") then
    return 1
  end if
  set oldDelim to the itemDelimiter
  set the itemDelimiter to ","
  set exePlatform to item 1 of the platform
  set exeBits to item 2 of the platform
  set the itemDelimiter to oldDelim
  if exePlatform <> "Windows" then
    closeXLib("ProgressCopy Xtra")
  else
    closeXLib("progcopy.x" & exeBits)
  end if
  if xtraLoaded("ProgressCopy") then
    warning("ProgressCopy Xtra wouldn't close-- do objects still exist?")
    return 0
  end if
  return 1
end

on leadmem sampleMember, theLib
  repeat with i = sampleMember down to 1
    if the type of member i of castLib theLib <> #bitmap then
      exit repeat
    end if
  end repeat
  return i + 1
end

on stripExtension afileName
  set the itemDelimiter to "."
  set afileName to item 1 of afileName
  set the itemDelimiter to ","
  set n to EMPTY
  repeat with i = 1 to the number of words in afileName
    put word i of afileName after n
  end repeat
  return n
end